home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / gambler1.zip / GAMBLER.PPS < prev    next >
Text File  |  1996-04-10  |  4KB  |  120 lines
  1. ;Gambler v1.0    Time betting "doorgame".
  2. ;Atlantis Software
  3. ;BBS 706-776-9276 28.8
  4. ;------------------------------------------------------------------------------
  5.  
  6.     BOOLEAN    VAR001
  7.     STRING     VAR002
  8.     STRING     VAR003
  9.     INTEGER    VAR004
  10.     INTEGER    VAR005
  11.     INTEGER    VAR006
  12.     INTEGER    VAR007
  13.     INTEGER    VAR008
  14.     INTEGER    VAR009
  15.     INTEGER    VAR010
  16.  
  17. ;------------------------------------------------------------------------------
  18.  
  19.     GETUSER
  20.     LET VAR003=U_NAME()
  21.     LET VAR001=0
  22.     FOPEN 1,PPEPATH()+PPENAME()+".DAT",O_RD,S_DW
  23.     FGET 1,VAR002
  24.     FGET 1,VAR006
  25.     FCLOSE 1
  26.     DISPFILE PPEPATH()+PPENAME()+".HDR",DEFS
  27.     NEWLINES 2
  28.     PRINTLN "@X0F                                 Timeleft: @X0E@TIMELEFT@"
  29.     NEWLINES 2
  30.     INPUTSTR "                  @X0FHow much time do you want to bet@X0A",VAR004,9,4,"0123456789",2048+-32768
  31.     LET VAR007=1+RANDOM(99)
  32.     LET VAR010=VAR006+VAR004
  33.     DISPFILE PPEPATH()+PPENAME()+".HDR",DEFS
  34. PRINTLN "@X06┌─────────────────────────────────────────────────────────────────────────────┐@X00"
  35. PRINTLN "│ @X06@POS:79@│"
  36. PRINTLN "│  @X0ENumber of Guesses:  @X0F6     SELECT A NUMBER FROM 1-100      @X0ETime Left:  @X0F@TIMELEFT@ @X06@POS:79@│"
  37. PRINTLN "│ @X06@POS:79@│"
  38. PRINTLN "│       @X0EGuess Number:       @X0EGame Status:                      @X0ETime Bet:   @X06@POS:79@│"
  39. PRINTLN "│ @X06@POS:79@│"
  40. PRINTLN "│       @X0EGuesses Left:       @X0EWhat's Your Guess              @X0EReward Time:   @X06@POS:79@│"
  41. PRINTLN "│ @X06@POS:79@│"
  42. PRINTLN "└─────────────────────────────────────────────────────────────────────────────┘"
  43.     ANSIPOS 74,11
  44.     PRINTLN "@X0F"+STRING(VAR010)
  45.     ANSIPOS 74,9
  46.     PRINTLN "@X0F"+STRING(VAR004)
  47.     LET VAR008=1
  48.  
  49. :LABEL000
  50.     IF (!(((1<0)&(VAR008>=6))|((1>=0)&(VAR008<=6)))) GOTO LABEL003
  51.     ANSIPOS 24,9
  52.     PRINTLN "@X0F"+STRING(VAR008)
  53.     ANSIPOS 46,11
  54.     PRINTLN "      "
  55.     LET VAR009=7-VAR008
  56.     ANSIPOS 24,11
  57.     PRINTLN "@X0F"+STRING(VAR009)
  58.     ANSIPOS 46,11
  59.     INPUTSTR "@X0A",VAR005,10,3,"0123456789",2048+-32768
  60.     IF (!(VAR005>VAR007)) GOTO LABEL001
  61.     ANSIPOS 43,9
  62.     PRINTLN "@X0CTOO @X8CHIGH      "
  63.  
  64. :LABEL001
  65.     IF (!(VAR005<VAR007)) GOTO LABEL002
  66.     ANSIPOS 43,9
  67.     PRINTLN "@X0CTOO @X8CLOW       "
  68.  
  69. :LABEL002
  70.     IF (VAR005=VAR007) GOTO LABEL004
  71.     LET VAR008=VAR008+1
  72.     GOTO LABEL000
  73.  
  74. :LABEL003
  75.     ANSIPOS 43,9
  76.     PRINTLN "@X8CLOSER!!!    @X0F"
  77.     DELAY 40
  78.     ADJTIME -VAR004
  79.     DISPFILE PPEPATH()+PPENAME()+".LOS",1+2
  80.     NEWLINE
  81.     PRINTLN "@X0F                            You just lost @X8C"+STRING(VAR004)+"@X0F minutes!"
  82.     GOTO LABEL005
  83.  
  84. :LABEL004
  85.     ANSIPOS 43,9 : PRINTLN "@X0FW@X8CINNER!!!    " : DELAY 1
  86.     ANSIPOS 43,9 : PRINTLN "W@X0FI@X8CNNER!!!    " : DELAY 1
  87.     ANSIPOS 43,9 : PRINTLN "WI@X0FN@X8CNER!!!    " : DELAY 1
  88.     ANSIPOS 43,9 : PRINTLN "WIN@X0FN@X8CER!!!    " : DELAY 1
  89.     ANSIPOS 43,9 : PRINTLN "WINN@X0FE@X8CR!!!    " : DELAY 1
  90.     ANSIPOS 43,9 : PRINTLN "WINNE@X0FR@X8C!!!    " : DELAY 1
  91.     ANSIPOS 43,9 : PRINTLN "WINNER@X0F!@X8C!!    " : DELAY 1
  92.     ANSIPOS 43,9 : PRINTLN "WINNER!@X0F!@X8C!    " : DELAY 1
  93.     ANSIPOS 43,9 : PRINTLN "WINNER!!@X0F!    " : DELAY 1
  94.     ANSIPOS 43,9 : PRINTLN "@X8CWINNER!!!    " : DELAY 1
  95.     DELAY 30
  96.     LET VAR001=1
  97.     DISPFILE PPEPATH()+PPENAME()+".WIN",1+2
  98.     NEWLINE
  99.     PRINTLN "@X0F                       You have been rewarded @X8C"+STRING(VAR010)+"@X0F minutes!"
  100.  
  101. :LABEL005
  102.     FCREATE 1,PPEPATH()+PPENAME()+".DAT",O_WR,S_DN
  103.     IF ((VAR001)) THEN
  104.         FPUTLN 1,VAR003
  105.         FPUTLN 1,"0"
  106.         LET VAR007=0
  107.         ADJTIME VAR010
  108.         GOTO LABEL006
  109.     ENDIF
  110.     FPUTLN 1,VAR002
  111.     FPUTLN 1,VAR010
  112.  
  113. :LABEL006
  114.     FCLOSE 1
  115.     NEWLINE
  116.     PRINTLN "@X0F                        The last winner was @X0E "+VAR002
  117.     NEWLINE
  118.     WAIT
  119.     END
  120.